home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
IRIX Base Documentation 1998 November
/
IRIX 6.5.2 Base Documentation November 1998.img
/
usr
/
share
/
catman
/
p_man
/
cat3
/
f90
/
precision.z
/
precision
Wrap
Text File
|
1998-10-30
|
2KB
|
68 lines
PRECISION(3I) Last changed: 1-6-98
NNAAMMEE
PPRREECCIISSIIOONN - Returns the decimal precision of a number in the real
number model
SSYYNNOOPPSSIISS
PPRREECCIISSIIOONN (([XX==]_x))
IIMMPPLLEEMMEENNTTAATTIIOONN
UNICOS, UNICOS/mk, and IRIX systems
SSTTAANNDDAARRDDSS
Fortran 90
DDEESSCCRRIIPPTTIIOONN
The PPRREECCIISSIIOONN intrinsic function returns the decimal precision of a
number in the real number model. The real number model is described
in the MMOODDEELLSS(3I) man page. This function accepts the following
argument:
_x Must be of type real or complex. It may be scalar or array
valued.
PPRREECCIISSIIOONN is an inquiry function. The name of this intrinsic cannot
be passed as an argument.
RREETTUURRNN VVAALLUUEESS
The result is a default integer scalar. The result has the value
IINNTT((_p-1)*LLOOGG1100(_b))+_k, where _b and _p are as defined in the model and
where _k is 1 if _b is an integral power of 10 and 0 otherwise.
EEXXAAMMPPLLEESS
On UNICOS systems, except for CRAY T90 systems that support IEEE
floating-point arithmetic, PPRREECCIISSIIOONN((XX)) has the value 13 for
RREEAALL((KKIINNDD==88)).
On CRAY T90 systems that support IEEE floating-point arithmetic,
PPRREECCIISSIIOONN((XX)) has the following values:
* 6 for RREEAALL((KKIINNDD==44)) XX
* 15 for RREEAALL((KKIINNDD==88)) XX
* 33 for RREEAALL((KKIINNDD==1166)) XX
On IRIX systems, PPRREECCIISSIIOONN((XX)) has the following values:
* 6 for RREEAALL((KKIINNDD==44)) XX
* 15 for RREEAALL((KKIINNDD==88)) XX
* 31 for RREEAALL((KKIINNDD==1166)) XX
On UNICOS/mk systems, PPRREECCIISSIIOONN((XX)) has the following values:
* 6 for RREEAALL((KKIINNDD==44)) XX
* 15 for RREEAALL((KKIINNDD==88)) XX
SSEEEE AALLSSOO
MMOODDEELLSS(3I)
_I_n_t_r_i_n_s_i_c _P_r_o_c_e_d_u_r_e_s _R_e_f_e_r_e_n_c_e _M_a_n_u_a_l, publication SR-2138, for the
printed version of this man page.